home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 98
/
Skunkware 98.iso
/
src
/
mail
/
pine3.96.tar.gz
/
pine3.96.tar
/
pine3.96
/
imap
/
ANSI
/
c-client
/
env_os2.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-03-15
|
6KB
|
206 lines
/*
* Program: OS/2 environment routines
*
* Author: Mark Crispin
* Networks and Distributed Computing
* Computing & Communications
* University of Washington
* Administration Building, AG-44
* Seattle, WA 98195
* Internet: MRC@CAC.Washington.EDU
*
* Date: 1 August 1988
* Last Edited: 14 March 1996
*
* Copyright 1996 by the University of Washington
*
* Permission to use, copy, modify, and distribute this software and its
* documentation for any purpose and without fee is hereby granted, provided
* that the above copyright notice appears in all copies and that both the
* above copyright notice and this permission notice appear in supporting
* documentation, and that the name of the University of Washington not be
* used in advertising or publicity pertaining to distribution of the software
* without specific, written prior permission. This software is made available
* "as is", and
* THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
* WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
* NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
* INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
* LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
* (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
*/
static char *myLocalHost = NIL; /* local host name */
static char *myHomeDir = NIL; /* home directory name */
static char *myNewsrc = NIL; /* newsrc file name */
#include "write.c" /* include safe writing routines */
/* Environment manipulate parameters
* Accepts: function code
* function-dependent value
* Returns: function-dependent return value
*/
void *env_parameters (long function,void *value)
{
switch ((int) function) {
case SET_HOMEDIR:
myHomeDir = cpystr ((char *) value);
break;
case GET_HOMEDIR:
value = (void *) myHomeDir;
break;
case SET_LOCALHOST:
myLocalHost = cpystr ((char *) value);
break;
case GET_LOCALHOST:
value = (void *) myLocalHost;
break;
case SET_NEWSRC:
if (myNewsrc) fs_give ((void **) &myNewsrc);
myNewsrc = cpystr ((char *) value);
break;
case GET_NEWSRC:
if (!myNewsrc) { /* set news file name if not defined */
char tmp[MAILTMPLEN];
sprintf (tmp,"%s\\newsrc",myhomedir ());
myNewsrc = cpystr (tmp);
}
value = (void *) myNewsrc;
break;
default:
value = NIL; /* error case */
break;
}
return value;
}
/* Write current time
* Accepts: destination string
* optional format of day-of-week prefix
* format of date and time
* flag whether to append symbolic timezone
*/
static void do_date (char *date,char *prefix,char *fmt,int suffix)
{
time_t tn = time (0);
struct tm *t = gmtime (&tn);
int zone = t->tm_hour * 60 + t->tm_min;
int julian = t->tm_yday;
t = localtime (&tn); /* get local time now */
/* minus UTC minutes since midnight */
zone = t->tm_hour * 60 + t->tm_min - zone;
/* julian can be one of:
* 36x local time is December 31, UTC is January 1, offset -24 hours
* 1 local time is 1 day ahead of UTC, offset +24 hours
* 0 local time is same day as UTC, no offset
* -1 local time is 1 day behind UTC, offset -24 hours
* -36x local time is January 1, UTC is December 31, offset +24 hours
*/
if (julian = t->tm_yday -julian)
zone += ((julian < 0) == (abs (julian) == 1)) ? -24*60 : 24*60;
if (prefix) { /* want day of week? */
sprintf (date,prefix,days[t->tm_wday]);
date += strlen (date); /* make next sprintf append */
}
/* output the date */
sprintf (date,fmt,t->tm_mday,months[t->tm_mon],t->tm_year+1900,
t->tm_hour,t->tm_min,t->tm_sec,zone/60,abs (zone) % 60);
if (suffix) { /* append timezone suffix if desired */
tzset (); /* get timezone from TZ environment stuff */
sprintf (date + strlen (date)," (%s)",
tzname[daylight ? (((struct tm *) t)->tm_isdst > 0) : 0]);
}
}
/* Write current time in RFC 822 format
* Accepts: destination string
*/
void rfc822_date (char *date)
{
do_date (date,"%s, ","%d %s %d %02d:%02d:%02d %+03d%02d",T);
}
/* Write current time in internal format
* Accepts: destination string
*/
void internal_date (char *date)
{
do_date (date,NIL,"%02d-%s-%d %02d:%02d:%02d %+03d%02d",NIL);
}
/* Return my home directory name
* Returns: my home directory name
*/
char *myhomedir ()
{
if (!myHomeDir) { /* get home directory name if not yet known */
char *s;
if ((s = getenv ("PINEHOME")) || (s = getenv ("HOME")) ||
(s = getenv ("ETC"))) {
myHomeDir = cpystr (s);
while (s = strchr (myHomeDir,'/')) *s = '\\';
if ((s = strrchr (myHomeDir,'\\')) && !s[1]) *s = '\0';
}
else myHomeDir = cpystr ("");
}
return myHomeDir;
}
/* Return mailbox file name
* Accepts: destination buffer
* mailbox name
* Returns: file name
*/
char *mailboxfile (char *dst,char *name)
{
char *s;
char *ext = (char *) mail_parameters (NIL,GET_EXTENSION,NIL);
/* forbid extraneous extensions */
if ((s = strchr ((s = strrchr (name,'\\')) ? s : name,'.')) &&
((ext = (char *) mail_parameters (NIL,GET_EXTENSION,NIL)) ||
strchr (s+1,'.'))) return NIL;
/* absolute path name? */
if ((*name == '\\') || (name[1] == ':')) strcpy (dst,name);
else sprintf (dst,"%s\\%s",myhomedir (),name);
if (ext) sprintf (dst + strlen (dst),".%s",ext);
return dst;
}
/* Determine default prototype stream to user
* Returns: default prototype stream
*/
MAILSTREAM *default_proto ()
{
return &DEFAULTPROTO; /* return default driver's prototype */
}
/* Global data */
static unsigned rndm = 0; /* initial `random' number */
/* Return random number
*/
long random ()
{
if (!rndm) srand (rndm = (unsigned) time (0L));
return (long) rand ();
}